home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / intro.spr < prev    next >
Encoding:
Text File  |  1994-07-09  |  6.7 KB  |  177 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/20/94              INTRO.SPR                18:29:48 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("intro") ;
  45.     OR UPPER(WTITLE("INTRO")) == "INTRO.PJX" ;
  46.     OR UPPER(WTITLE("INTRO")) == "INTRO.SCX" ;
  47.     OR UPPER(WTITLE("INTRO")) == "INTRO.MNX" ;
  48.     OR UPPER(WTITLE("INTRO")) == "INTRO.PRG" ;
  49.     OR UPPER(WTITLE("INTRO")) == "INTRO.FRX" ;
  50.     OR UPPER(WTITLE("INTRO")) == "INTRO.QPR"
  51.     DEFINE WINDOW intro ;
  52.         AT  0.000, 0.000  ;
  53.         SIZE 27.462,109.000 ;
  54.         TITLE "Disclaimer" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         CLOSE ;
  58.         NOMINIMIZE ;
  59.         DOUBLE ;
  60.         COLOR RGB(,,,255,255,255)
  61.     MOVE WINDOW intro CENTER
  62. ENDIF
  63.  
  64.  
  65. *       *********************************************************
  66. *       *                                                         
  67. *       *               INTRO/Windows Screen Layout               
  68. *       *                                                         
  69. *       *********************************************************
  70. *
  71.  
  72. #REGION 1
  73. IF WVISIBLE("intro")
  74.     ACTIVATE WINDOW intro SAME
  75. ELSE
  76.     ACTIVATE WINDOW intro NOSHOW
  77. ENDIF
  78. @ 17.308,3.600 SAY "By accepting, retaining and/or using the RE/MAX Referral Roster, you commit yourself to the restrictions" + CHR(13) + ;
  79.         "and terms set forth above.  Should you be unwilling or unable to honor such restrictions or terms, or should" + CHR(13) + ;
  80.         "" ;
  81.     SIZE 2.000,100.000, 0.000 ;
  82.     FONT "MS Sans Serif", 8 ;
  83.     STYLE "T"
  84. @ 19.385,3.600 SAY "your affiliation with RE/MAX terminate for any reason, this CD-ROM disc must be returned to RE/MAX" + CHR(13) + ;
  85.         "International immediatly.  RE/MAX International will take all steps open to it, including litigation if necessary," + CHR(13) + ;
  86.         "to prevent any improper or unauthorized" ;
  87.     SIZE 3.000,101.000, 0.000 ;
  88.     FONT "MS Sans Serif", 8 ;
  89.     STYLE "T"
  90. @ 21.385,41.600 SAY "or distribution of this roster or the information contained herein." ;
  91.     FONT "MS Sans Serif", 8 ;
  92.     STYLE "T"
  93. @ 1.000,48.200 SAY "CONFIDENTIAL" ;
  94.     FONT "MS Sans Serif", 8 ;
  95.     STYLE "T"
  96. @ 2.769,3.600 SAY "For use by affiliates of RE/MAX Internation only.  This CD-ROM disc has been developed at great expense" + CHR(13) + ;
  97.         " and is the property of RE/MAX International. Its distribution to affiliates of RE/MAX International is to be " + CHR(13) + ;
  98.         "considered a lease" ;
  99.     SIZE 3.000,100.400, 0.000 ;
  100.     FONT "MS Sans Serif", 8 ;
  101.     STYLE "T"
  102. @ 4.769,22.000 SAY "of assets and a limited license to use trade secrets and copyrighted material." ;
  103.     FONT "MS Sans Serif", 8 ;
  104.     STYLE "T"
  105. @ 8.538,3.600 SAY "The information set forth in this roster is provided by RE/MAX International solely and exclusively for the use" + CHR(13) + ;
  106.         "of affiliates of RE/MAX in connection with their real estate business nad real estate referral activities.  Such" ;
  107.     SIZE 2.000,101.000, 0.000 ;
  108.     FONT "MS Sans Serif", 8 ;
  109.     STYLE "T"
  110. @ 12.538,3.600 SAY "copy of the roster, and any electronic copies, remain hte property of RE/MAX International and may not be" + CHR(13) + ;
  111.         "sold, copied, or otherwise transferred without the prior consent of RE/MAX International." ;
  112.     SIZE 2.000,100.000, 0.000 ;
  113.     FONT "MS Sans Serif", 8 ;
  114.     STYLE "T"
  115. @ 10.615,4.000 SAY 'information like the term "RE/MAX" and other marks and logos owned by RE/MAX International, may not' + CHR(13) + ;
  116.         'by used for any other purpose, commercial or charitable, or in connection with any other activity.  This' + CHR(13) + ;
  117.         '' ;
  118.     SIZE 2.000,98.800, 0.000 ;
  119.     FONT "MS Sans Serif", 8 ;
  120.     STYLE "T"
  121. @ 6.538,43.000 SAY "LIMITED EXCLUSIVE USE" ;
  122.     FONT "MS Sans Serif", 8 ;
  123.     STYLE "T"
  124. @ 15.769,45.200 SAY "BINDING CONTRACT" ;
  125.     FONT "MS Sans Serif", 8 ;
  126.     STYLE "T"
  127. @ 24.308,34.800 SAY "PRESS ENTER TO CONTINUE" ;
  128.     FONT "MS Sans Serif", 8 ;
  129.     STYLE "T"
  130. @ 23.769,67.000 GET M.DISCLM ;
  131.     PICTURE "@*HN OK" ;
  132.     SIZE 1.923,8.667,0.667 ;
  133.     DEFAULT 1 ;
  134.     FONT "MS Sans Serif", 8 ;
  135.     STYLE "B" ;
  136.     VALID _qr113n8p4()
  137.  
  138. IF NOT WVISIBLE("intro")
  139.     ACTIVATE WINDOW intro
  140. ENDIF
  141.  
  142. READ CYCLE
  143.  
  144. RELEASE WINDOW intro
  145. SELECT (m.currarea)
  146.  
  147.  
  148. #REGION 0
  149.  
  150. SET READBORDER &rborder
  151.  
  152. IF m.talkstat = "ON"
  153.     SET TALK ON
  154. ENDIF
  155. IF m.compstat = "ON"
  156.     SET COMPATIBLE ON
  157. ENDIF
  158.  
  159.  
  160. *       *********************************************************
  161. *       *                                                         
  162. *       * _QR113N8P4           M.DISCLM VALID                     
  163. *       *                                                         
  164. *       * Function Origin:                                        
  165. *       *                                                         
  166. *       * From Platform:       Windows                            
  167. *       * From Screen:         INTRO,     Record Number:   14     
  168. *       * Variable:            M.DISCLM                           
  169. *       * Called By:           VALID Clause                       
  170. *       * Object Type:         Push Button                        
  171. *       * Snippet Number:      1                                  
  172. *       *                                                         
  173. *       *********************************************************
  174. *
  175. FUNCTION _qr113n8p4     &&  M.DISCLM VALID
  176. #REGION 1
  177. CLEAR READ